MODULE hel; (*  30-Mar-90. (c) KRONOS *)

IMPORT  tty: Terminal;

CONST s = ARRAY OF CHAR {
  220c,061c,073c,061c,073c,061c,073c,062c,073c,061c,073c,061c,173c,114c,077c,
  077c,077c,077c,176c,077c,077c,077c,057c,077c,077c,077c,077c,116c,077c,077c,
  077c,073c,137c,137c,137c,137c,176c,077c,077c,077c,057c,077c,077c,077c,077c,
  077c,077c,077c,077c,073c,077c,077c,077c,077c,176c,137c,137c,137c,057c,077c,
  077c,077c,077c,077c,077c,077c,077c,073c,137c,137c,137c,137c,137c,077c,077c,
  077c,057c,077c,077c,077c,077c,116c,077c,077c,077c,073c,077c,077c,077c,077c,
  137c,137c,137c,137c,057c,077c,077c,077c,077c,116c,077c,077c,077c,073c,137c,
  137c,137c,137c,137c,137c,137c,137c,057c,077c,077c,077c,077c,077c,077c,077c,
  077c,073c,137c,137c,137c,137c,176c,137c,137c,137c,057c,077c,077c,077c,077c,
  077c,077c,077c,077c,073c,077c,077c,077c,077c,176c,137c,137c,137c,057c,077c,
  077c,077c,077c,116c,077c,077c,077c,073c,137c,137c,137c,137c,137c,137c,137c,
  137c,057c,077c,077c,077c,077c,116c,077c,077c,077c,073c,137c,137c,137c,137c,
  176c,077c,077c,077c,057c,077c,077c,077c,077c,116c,077c,077c,077c,073c,137c,
  137c,137c,137c,176c,137c,137c,137c,057c,077c,077c,077c,077c,116c,077c,077c,
  077c,073c,077c,077c,077c,077c,077c,077c,077c,077c,057c,077c,077c,102c,112c,
  106c,077c,077c,077c,073c,117c,117c,117c,117c,117c,117c,117c,077c,057c,077c,
  077c,077c,077c,077c,077c,077c,077c,073c,077c,077c,077c,077c,077c,077c,077c,
  077c,057c,077c,077c,102c,102c,102c,077c,077c,077c,073c,105c,141c,131c,125c,
  117c,117c,137c,077c,057c,077c,102c,101c,101c,101c,101c,100c,077c,073c,173c,
  101c,141c,121c,111c,105c,173c,077c,057c,100c,102c,101c,101c,101c,101c,100c,
  077c,073c,077c,107c,103c,175c,077c,077c,077c,077c,057c,077c,101c,101c,102c,
  101c,101c,077c,077c,073c,077c,103c,141c,141c,121c,121c,113c,077c,057c,077c,
  102c,101c,101c,101c,101c,101c,077c,073c,103c,101c,121c,121c,121c,101c,153c,
  077c,057c,100c,101c,101c,101c,101c,101c,100c,077c,073c,077c,157c,147c,143c,
  141c,175c,137c,077c,057c,077c,077c,077c,077c,077c,102c,077c,077c,073c,135c,
  121c,121c,121c,121c,121c,141c,077c,057c,101c,101c,101c,101c,101c,101c,100c,
  077c,073c,173c,121c,121c,121c,121c,121c,143c,077c,057c,100c,101c,101c,101c,
  101c,101c,100c,077c,073c,101c,101c,101c,141c,121c,111c,105c,077c,057c,077c,
  077c,101c,102c,101c,077c,077c,077c,073c,153c,121c,121c,121c,121c,121c,153c,
  077c,057c,100c,101c,101c,101c,101c,101c,100c,077c,073c,113c,121c,121c,121c,
  121c,121c,173c,077c,057c,100c,101c,101c,101c,101c,101c,100c,077c,073c,077c,
  077c,153c,153c,077c,077c,077c,077c,057c,077c,077c,100c,100c,077c,077c,077c,
  077c,073c,077c,077c,153c,153c,153c,077c,077c,077c,057c,077c,077c,100c,104c,
  102c,077c,077c,077c,073c,117c,077c,147c,077c,103c,077c,101c,077c,057c,077c,
  077c,077c,077c,100c,077c,101c,077c,073c,107c,107c,107c,107c,107c,107c,107c,
  077c,057c,100c,100c,100c,100c,100c,100c,100c,077c,073c,101c,077c,103c,077c,
  147c,077c,117c,077c,057c,101c,077c,100c,077c,077c,077c,077c,077c,073c,175c,
  175c,175c,175c,175c,175c,175c,077c,057c,116c,116c,116c,116c,116c,116c,116c,
  077c,073c,167c,137c,137c,157c,107c,107c,157c,077c,057c,102c,077c,077c,100c,
  101c,101c,100c,077c,073c,077c,147c,147c,147c,147c,157c,077c,077c,057c,100c,
  101c,101c,101c,101c,100c,101c,077c,073c,147c,123c,123c,123c,123c,123c,141c,
  077c,057c,100c,101c,101c,101c,101c,101c,100c,077c,073c,167c,077c,077c,077c,
  077c,167c,077c,077c,057c,102c,101c,101c,101c,101c,112c,105c,077c,073c,077c,
  107c,167c,107c,107c,167c,077c,077c,057c,105c,102c,101c,101c,101c,102c,105c,
  077c,073c,157c,147c,147c,147c,147c,157c,077c,077c,057c,100c,101c,101c,101c,
  101c,101c,077c,077c,073c,157c,107c,107c,167c,107c,107c,157c,077c,057c,100c,
  101c,101c,106c,101c,101c,100c,077c,073c,107c,167c,107c,107c,107c,107c,127c,
  077c,057c,101c,102c,101c,077c,077c,077c,077c,077c,073c,107c,117c,137c,137c,
  137c,117c,107c,077c,057c,101c,100c,077c,077c,077c,100c,101c,077c,073c,167c,
  077c,077c,137c,117c,107c,167c,077c,057c,102c,101c,100c,077c,077c,077c,102c,
  077c,073c,167c,077c,101c,145c,121c,107c,167c,077c,057c,102c,101c,100c,077c,
  077c,077c,102c,077c,073c,167c,137c,137c,137c,117c,107c,077c,077c,057c,102c,
  077c,077c,077c,100c,101c,077c,077c,073c,077c,107c,167c,107c,107c,107c,167c,
  077c,057c,101c,101c,100c,077c,077c,077c,102c,077c,073c,167c,117c,137c,077c,
  137c,117c,167c,077c,057c,102c,077c,077c,100c,077c,077c,102c,077c,073c,167c,
  137c,137c,137c,137c,137c,167c,077c,057c,102c,077c,077c,077c,077c,077c,102c,
  077c,073c,157c,107c,107c,107c,107c,107c,157c,077c,057c,100c,101c,101c,101c,
  101c,101c,100c,077c,073c,167c,107c,107c,107c,107c,167c,077c,077c,057c,102c,
  077c,077c,077c,077c,102c,077c,077c,073c,117c,147c,147c,147c,147c,167c,077c,
  077c,057c,101c,101c,100c,077c,077c,102c,077c,077c,073c,167c,107c,107c,107c,
  107c,157c,077c,077c,057c,106c,101c,101c,101c,101c,100c,077c,077c,073c,157c,
  107c,107c,107c,107c,107c,117c,077c,057c,100c,101c,101c,101c,101c,101c,100c,
  077c,073c,127c,107c,107c,167c,107c,107c,127c,077c,057c,077c,077c,077c,102c,
  077c,077c,077c,077c,073c,167c,077c,077c,077c,077c,167c,077c,077c,057c,077c,
  104c,104c,104c,104c,102c,077c,077c,073c,127c,077c,137c,167c,137c,077c,127c,
  077c,057c,102c,077c,077c,102c,077c,077c,102c,077c,073c,107c,167c,147c,147c,
  147c,117c,077c,077c,057c,101c,102c,101c,101c,101c,100c,077c,077c,073c,107c,
  167c,137c,137c,137c,137c,077c,077c,057c,101c,102c,101c,101c,101c,101c,100c,
  077c,073c,167c,137c,137c,077c,077c,077c,167c,077c,057c,102c,101c,101c,100c,
  077c,077c,102c,077c,073c,077c,117c,107c,107c,147c,147c,117c,077c,057c,077c,
  100c,101c,101c,101c,101c,100c,077c,073c,167c,077c,077c,157c,077c,077c,167c,
  077c,057c,102c,101c,101c,102c,101c,101c,102c,077c,073c,077c,107c,107c,147c,
  147c,157c,077c,077c,057c,077c,101c,101c,101c,101c,100c,077c,077c,073c,167c,
  077c,077c,157c,077c,077c,167c,077c,057c,102c,101c,101c,102c,101c,111c,106c,
  077c,073c,077c,127c,137c,137c,137c,137c,167c,077c,057c,077c,077c,077c,077c,
  077c,077c,102c,077c,073c,117c,107c,167c,137c,137c,137c,077c,077c,057c,077c,
  077c,102c,101c,101c,101c,100c,077c,073c,175c,117c,117c,173c,101c,101c,173c,
  077c,057c,102c,077c,077c,100c,101c,101c,100c,077c,073c,077c,173c,141c,141c,
  141c,175c,101c,077c,057c,101c,102c,077c,077c,077c,102c,101c,077c,073c,101c,
  175c,121c,121c,121c,121c,141c,077c,057c,101c,102c,101c,101c,101c,101c,100c,
  077c,073c,175c,077c,077c,077c,077c,175c,077c,077c,057c,102c,101c,101c,101c,
  101c,102c,105c,077c,073c,077c,101c,175c,101c,101c,175c,101c,077c,057c,105c,
  102c,101c,101c,101c,102c,105c,077c,073c,101c,175c,121c,121c,121c,101c,105c,
  077c,057c,101c,102c,101c,101c,101c,101c,102c,077c,073c,173c,101c,101c,175c,
  101c,101c,173c,077c,057c,100c,101c,101c,106c,101c,101c,100c,077c,073c,101c,
  175c,101c,101c,101c,101c,105c,077c,057c,101c,102c,101c,077c,077c,077c,077c,
  077c,073c,101c,103c,147c,117c,147c,103c,101c,077c,057c,101c,100c,077c,077c,
  077c,100c,101c,077c,073c,175c,077c,077c,137c,117c,107c,175c,077c,057c,102c,
  101c,100c,077c,077c,077c,102c,077c,073c,175c,077c,100c,142c,120c,107c,175c,
  077c,057c,102c,101c,100c,077c,077c,077c,102c,077c,073c,175c,117c,117c,117c,
  147c,103c,101c,077c,057c,102c,077c,077c,077c,077c,100c,101c,077c,073c,077c,
  101c,175c,101c,101c,175c,101c,077c,057c,101c,101c,100c,077c,077c,102c,101c,
  077c,073c,175c,103c,107c,157c,107c,103c,175c,077c,057c,102c,077c,077c,077c,
  077c,077c,102c,077c,073c,175c,117c,117c,117c,117c,117c,175c,077c,057c,102c,
  077c,077c,077c,077c,077c,102c,077c,073c,173c,101c,101c,101c,101c,101c,173c,
  077c,057c,100c,101c,101c,101c,101c,101c,100c,077c,073c,175c,101c,101c,101c,
  101c,101c,175c,077c,057c,102c,077c,077c,077c,077c,077c,102c,077c,073c,113c,
  121c,161c,121c,121c,175c,101c,077c,057c,101c,100c,077c,077c,077c,102c,101c,
  077c,073c,101c,175c,141c,141c,141c,141c,133c,077c,057c,101c,102c,077c,077c,
  077c,077c,077c,077c,073c,173c,101c,101c,101c,101c,101c,103c,077c,057c,100c,
  101c,101c,101c,101c,101c,100c,077c,073c,105c,101c,101c,175c,101c,101c,105c,
  077c,057c,077c,077c,077c,102c,077c,077c,077c,077c,073c,077c,135c,137c,137c,
  137c,137c,175c,077c,057c,077c,101c,101c,101c,101c,101c,100c,077c,073c,155c,
  077c,117c,175c,117c,077c,155c,077c,057c,102c,077c,077c,102c,077c,077c,102c,
  077c,073c,101c,175c,121c,121c,121c,121c,153c,077c,057c,101c,102c,101c,101c,
  101c,101c,100c,077c,073c,101c,175c,117c,117c,117c,117c,137c,077c,057c,101c,
  102c,101c,101c,101c,101c,100c,077c,073c,175c,117c,117c,137c,077c,077c,175c,
  077c,057c,102c,101c,101c,100c,077c,077c,102c,077c,073c,077c,103c,101c,101c,
  121c,121c,153c,077c,057c,077c,100c,101c,101c,101c,101c,100c,077c,073c,175c,
  077c,077c,173c,077c,077c,175c,077c,057c,102c,101c,101c,102c,101c,101c,102c,
  077c,073c,103c,101c,121c,121c,121c,173c,077c,077c,057c,100c,101c,101c,101c,
  101c,100c,077c,077c,073c,175c,077c,077c,173c,077c,077c,175c,077c,057c,102c,
  101c,101c,102c,101c,111c,106c,077c,073c,135c,137c,137c,137c,137c,137c,175c,
  077c,057c,077c,077c,077c,077c,077c,077c,102c,077c,073c,105c,161c,151c,145c,
  137c,137c,077c,077c,057c,077c,106c,103c,103c,103c,103c,102c,077c,033c,134c,
  033c,051c,114c,033c,176c};

VAR i: INTEGER;

BEGIN
  tty.WriteString(s);
(*
  i:=1;
  tty.print('DCS\n');
  tty.print('Pf =%c%c\n',s[i],s[i+1]); INC(i,2);
  tty.print('Pcn=%c%c\n',s[i],s[i+1]); INC(i,2);
  tty.print('Pe =%c%c\n',s[i],s[i+1]); INC(i,2);
  tty.print('Pcm=%c%c\n',s[i],s[i+1]); INC(i,2);
  tty.print('Pw =%c%c\n',s[i],s[i+1]); INC(i,2);
  tty.print('Pt =%c%c\n',s[i],s[i+1]); INC(i,2);
  WHILE i<HIGH(s) DO tty.print('%c\n',s[i]); INC(i) END;
*)
END hel.
